#Question 2
library(readr)
norm <- read_csv("Videlis/norm.csv")
norm
#histogram
hist(norm$x)
#mean
mean(norm$x)
#stabdard deviation
sd(norm$x)
#standard error of the mean
se<-sd(norm$x)/sqrt(length(norm$x[!is.na(norm$x)]))
se


#Question 3
library(readr)
g <- read_csv("Videlis/g.csv")
g
#plot of g vs longitude
plot(g$longitude,g$g, xlab = "Longitude", ylab = "g", main = "Plot of g vs Longitude")
#plot of g vs Latitude
plot(g$latitude, g$g, xlab = "Latitude", ylab = "g", main = "Plot of g vs Latitude")